home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD88728112000.psc / ZyWeb Beta / Form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-11  |  25.4 KB  |  663 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "SWFLASH.OCX"
  4. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  5. Begin VB.Form Form2 
  6.    Caption         =   "Zyweb"
  7.    ClientHeight    =   8205
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   11880
  11.    Icon            =   "Form2.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   8205
  15.    ScaleWidth      =   11880
  16.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  17.       Height          =   7125
  18.       Left            =   0
  19.       TabIndex        =   6
  20.       Top             =   720
  21.       Width           =   11895
  22.       ExtentX         =   20981
  23.       ExtentY         =   12568
  24.       ViewMode        =   0
  25.       Offline         =   0
  26.       Silent          =   0
  27.       RegisterAsBrowser=   1
  28.       RegisterAsDropTarget=   1
  29.       AutoArrange     =   0   'False
  30.       NoClientEdge    =   0   'False
  31.       AlignLeft       =   0   'False
  32.       NoWebView       =   0   'False
  33.       HideFileNames   =   0   'False
  34.       SingleClick     =   0   'False
  35.       SingleSelection =   0   'False
  36.       NoFolders       =   0   'False
  37.       Transparent     =   0   'False
  38.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  39.       Location        =   "http:///"
  40.    End
  41.    Begin MSComctlLib.ImageList ImageList3 
  42.       Left            =   0
  43.       Top             =   3960
  44.       _ExtentX        =   1005
  45.       _ExtentY        =   1005
  46.       BackColor       =   -2147483643
  47.       ImageWidth      =   16
  48.       ImageHeight     =   16
  49.       MaskColor       =   12632256
  50.       _Version        =   393216
  51.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  52.          NumListImages   =   1
  53.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  54.             Picture         =   "Form2.frx":1272
  55.             Key             =   ""
  56.          EndProperty
  57.       EndProperty
  58.    End
  59.    Begin MSComctlLib.Toolbar Toolbar3 
  60.       Align           =   2  'Align Bottom
  61.       Height          =   360
  62.       Left            =   0
  63.       TabIndex        =   3
  64.       Top             =   7845
  65.       Width           =   11880
  66.       _ExtentX        =   20955
  67.       _ExtentY        =   635
  68.       ButtonWidth     =   2910
  69.       ButtonHeight    =   582
  70.       AllowCustomize  =   0   'False
  71.       Appearance      =   1
  72.       Style           =   1
  73.       TextAlignment   =   1
  74.       ImageList       =   "ImageList2"
  75.       _Version        =   393216
  76.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  77.          NumButtons      =   4
  78.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.             Caption         =   "&On The Web"
  80.             Key             =   "Onthewb"
  81.             Description     =   "Misc Websites"
  82.             Object.ToolTipText     =   "Misc. Web-Sites Of Intrest"
  83.             Object.Tag             =   "Onthewb"
  84.             ImageIndex      =   1
  85.             Style           =   5
  86.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  87.                NumButtonMenus  =   9
  88.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  89.                   Key             =   "Moma"
  90.                   Object.Tag             =   "Moma"
  91.                   Text            =   "Museum of Modern Art"
  92.                EndProperty
  93.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  94.                   Key             =   "Pets"
  95.                   Object.Tag             =   "Pets"
  96.                   Text            =   "PETS.COM"
  97.                EndProperty
  98.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  99.                   Key             =   "Staples"
  100.                   Object.Tag             =   "Staples"
  101.                   Text            =   "Staples.com"
  102.                EndProperty
  103.                BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  104.                   Key             =   "PlanetRX"
  105.                   Object.Tag             =   "PlanetRX"
  106.                   Text            =   "PlanetRx.com"
  107.                EndProperty
  108.                BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  109.                   Key             =   "Garden"
  110.                   Object.Tag             =   "Garden"
  111.                   Text            =   "Garden.com"
  112.                EndProperty
  113.                BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  114.                   Key             =   "BandN"
  115.                   Object.Tag             =   "BandN"
  116.                   Text            =   "Barnes And Noble"
  117.                EndProperty
  118.                BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  119.                   Key             =   "Shock"
  120.                   Object.Tag             =   "Shock"
  121.                   Text            =   "Shockwave"
  122.                EndProperty
  123.                BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  124.                   Key             =   "Mw"
  125.                   Object.Tag             =   "Mw"
  126.                   Text            =   "Micro Warehouse"
  127.                EndProperty
  128.                BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  129.                   Key             =   "BePaid"
  130.                   Object.Tag             =   "BePaid"
  131.                   Text            =   "Be Paid To Surf The Web"
  132.                EndProperty
  133.             EndProperty
  134.          EndProperty
  135.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  136.             Caption         =   "&Save Document"
  137.             Key             =   "Save"
  138.             Description     =   "Save"
  139.             Object.ToolTipText     =   "Save Web-Page To Disk"
  140.             Object.Tag             =   "Save"
  141.             ImageIndex      =   2
  142.          EndProperty
  143.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  144.             Caption         =   "&New Window"
  145.             Key             =   "New"
  146.             Description     =   "Open A New Window"
  147.             Object.ToolTipText     =   "Open A New Window"
  148.             Object.Tag             =   "New"
  149.             ImageIndex      =   3
  150.          EndProperty
  151.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  152.             Caption         =   "&Web Radio"
  153.             Key             =   "Webradio"
  154.             Description     =   "Tune Into The Web-Radio"
  155.             Object.ToolTipText     =   "Tune Into The Web-Radio"
  156.             Object.Tag             =   "webradio"
  157.             ImageIndex      =   4
  158.          EndProperty
  159.       EndProperty
  160.       BorderStyle     =   1
  161.       Begin MSComctlLib.ProgressBar ProgressBar1 
  162.          Height          =   255
  163.          Left            =   9500
  164.          TabIndex        =   5
  165.          Top             =   40
  166.          Width           =   2295
  167.          _ExtentX        =   4048
  168.          _ExtentY        =   450
  169.          _Version        =   393216
  170.          BorderStyle     =   1
  171.          Appearance      =   1
  172.          Scrolling       =   1
  173.       End
  174.    End
  175.    Begin MSComctlLib.ImageList ImageList2 
  176.       Left            =   0
  177.       Top             =   3360
  178.       _ExtentX        =   1005
  179.       _ExtentY        =   1005
  180.       BackColor       =   -2147483643
  181.       ImageWidth      =   16
  182.       ImageHeight     =   16
  183.       MaskColor       =   12632256
  184.       _Version        =   393216
  185.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  186.          NumListImages   =   5
  187.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.             Picture         =   "Form2.frx":24F6
  189.             Key             =   ""
  190.          EndProperty
  191.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  192.             Picture         =   "Form2.frx":377A
  193.             Key             =   ""
  194.          EndProperty
  195.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  196.             Picture         =   "Form2.frx":4602
  197.             Key             =   ""
  198.          EndProperty
  199.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.             Picture         =   "Form2.frx":5886
  201.             Key             =   ""
  202.          EndProperty
  203.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.             Picture         =   "Form2.frx":6B0A
  205.             Key             =   ""
  206.          EndProperty
  207.       EndProperty
  208.    End
  209.    Begin MSComctlLib.Toolbar Toolbar2 
  210.       Align           =   1  'Align Top
  211.       Height          =   360
  212.       Left            =   0
  213.       TabIndex        =   1
  214.       Top             =   360
  215.       Width           =   11880
  216.       _ExtentX        =   20955
  217.       _ExtentY        =   635
  218.       ButtonWidth     =   2011
  219.       ButtonHeight    =   582
  220.       AllowCustomize  =   0   'False
  221.       Appearance      =   1
  222.       Style           =   1
  223.       TextAlignment   =   1
  224.       ImageList       =   "ImageList3"
  225.       _Version        =   393216
  226.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  227.          NumButtons      =   2
  228.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  229.             Caption         =   "&Favorites"
  230.             Key             =   "Favorites"
  231.             Description     =   "Favorites Menu"
  232.             Object.ToolTipText     =   "Favorites Menu"
  233.             Object.Tag             =   "Favories"
  234.             ImageIndex      =   1
  235.             Style           =   5
  236.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  237.                NumButtonMenus  =   3
  238.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  239.                   Key             =   "Add"
  240.                   Object.Tag             =   "Add"
  241.                   Text            =   "&Add Favorite"
  242.                EndProperty
  243.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  244.                   Key             =   "Edit"
  245.                   Object.Tag             =   "Edit"
  246.                   Text            =   "&Edit Favorites"
  247.                EndProperty
  248.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  249.                   Key             =   "Spacer"
  250.                   Object.Tag             =   "Spacer"
  251.                   Text            =   "-"
  252.                EndProperty
  253.             EndProperty
  254.          EndProperty
  255.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  256.             Style           =   3
  257.          EndProperty
  258.       EndProperty
  259.       BorderStyle     =   1
  260.       Begin VB.PictureBox Picture1 
  261.          AutoSize        =   -1  'True
  262.          BorderStyle     =   0  'None
  263.          Height          =   210
  264.          Left            =   11570
  265.          Picture         =   "Form2.frx":7D8E
  266.          ScaleHeight     =   210
  267.          ScaleWidth      =   240
  268.          TabIndex        =   10
  269.          Top             =   50
  270.          Visible         =   0   'False
  271.          Width           =   240
  272.       End
  273.       Begin VB.TextBox Text1 
  274.          Height          =   285
  275.          Left            =   1440
  276.          TabIndex        =   7
  277.          Top             =   23
  278.          Width           =   8895
  279.       End
  280.       Begin VB.CommandButton Command1 
  281.          Caption         =   "G&o"
  282.          Default         =   -1  'True
  283.          Height          =   255
  284.          Left            =   10440
  285.          TabIndex        =   2
  286.          Top             =   50
  287.          Width           =   735
  288.       End
  289.    End
  290.    Begin MSComctlLib.Toolbar Toolbar1 
  291.       Align           =   1  'Align Top
  292.       Height          =   360
  293.       Left            =   0
  294.       TabIndex        =   0
  295.       Top             =   0
  296.       Width           =   11880
  297.       _ExtentX        =   20955
  298.       _ExtentY        =   635
  299.       ButtonWidth     =   2011
  300.       ButtonHeight    =   582
  301.       AllowCustomize  =   0   'False
  302.       Appearance      =   1
  303.       Style           =   1
  304.       TextAlignment   =   1
  305.       ImageList       =   "ImageList1"
  306.       _Version        =   393216
  307.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  308.          NumButtons      =   9
  309.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  310.             Caption         =   "&Navigate"
  311.             Key             =   "Navigate"
  312.             Description     =   "Navigate To A Web-Site"
  313.             Object.ToolTipText     =   "Navigate To A Selected Web-Site"
  314.             Object.Tag             =   "Navigate"
  315.             ImageIndex      =   1
  316.          EndProperty
  317.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  318.             Caption         =   "&Stop"
  319.             Key             =   "Stop"
  320.             Description     =   "Halt Current Transfer"
  321.             Object.ToolTipText     =   "Halt Current Transfer."
  322.             Object.Tag             =   "Stop"
  323.             ImageIndex      =   2
  324.          EndProperty
  325.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  326.             Caption         =   "&Reload"
  327.             Key             =   "Reload"
  328.             Description     =   "Reload Current Web-Page"
  329.             Object.ToolTipText     =   "Reload Current Web-Page."
  330.             Object.Tag             =   "Reload"
  331.             ImageIndex      =   3
  332.          EndProperty
  333.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Caption         =   "&Previous"
  335.             Key             =   "Previous"
  336.             Description     =   "Previous Web-Page"
  337.             Object.ToolTipText     =   "Previous Web-Page."
  338.             Object.Tag             =   "Previous"
  339.             ImageIndex      =   4
  340.          EndProperty
  341.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  342.             Caption         =   "&Next"
  343.             Key             =   "Next"
  344.             Description     =   "Next Webpage"
  345.             Object.ToolTipText     =   "Next Web-Page"
  346.             Object.Tag             =   "Next"
  347.             ImageIndex      =   5
  348.          EndProperty
  349.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  350.             Caption         =   "&Find"
  351.             Key             =   "Find"
  352.             Description     =   "Find Web-Page"
  353.             Object.ToolTipText     =   "Find A Web-Page."
  354.             Object.Tag             =   "Find"
  355.             ImageIndex      =   6
  356.          EndProperty
  357.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  358.             Caption         =   "&Home"
  359.             Key             =   "Home"
  360.             Description     =   "Home-Page"
  361.             Object.ToolTipText     =   "Navigate To Homepage"
  362.             Object.Tag             =   "Home"
  363.             ImageIndex      =   7
  364.          EndProperty
  365.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  366.             Caption         =   "&Print"
  367.             Key             =   "Print"
  368.             Description     =   "Print Current Web-Page"
  369.             Object.ToolTipText     =   "Print Current Web-Page"
  370.             Object.Tag             =   "Print"
  371.             ImageIndex      =   8
  372.          EndProperty
  373.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  374.             Caption         =   "&Options"
  375.             Key             =   "Options"
  376.             Description     =   "Options"
  377.             Object.ToolTipText     =   "Edit Options For This Program"
  378.             Object.Tag             =   "Options"
  379.             ImageIndex      =   9
  380.          EndProperty
  381.       EndProperty
  382.       BorderStyle     =   1
  383.       Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1 
  384.          Height          =   375
  385.          Left            =   11520
  386.          TabIndex        =   4
  387.          Top             =   0
  388.          Width           =   370
  389.          _cx             =   4194957
  390.          _cy             =   4194965
  391.          Movie           =   "c:\my documents\loading.swf"
  392.          Src             =   "c:\my documents\loading.swf"
  393.          WMode           =   "Window"
  394.          Play            =   0   'False
  395.          Loop            =   -1  'True
  396.          Quality         =   "High"
  397.          SAlign          =   "L"
  398.          Menu            =   -1  'True
  399.          Base            =   ""
  400.          Scale           =   "ShowAll"
  401.          DeviceFont      =   0   'False
  402.          EmbedMovie      =   -1  'True
  403.          BGColor         =   ""
  404.          SWRemote        =   ""
  405.       End
  406.    End
  407.    Begin MSComctlLib.ImageList ImageList1 
  408.       Left            =   0
  409.       Top             =   2760
  410.       _ExtentX        =   1005
  411.       _ExtentY        =   1005
  412.       BackColor       =   -2147483643
  413.       ImageWidth      =   16
  414.       ImageHeight     =   16
  415.       MaskColor       =   12632256
  416.       _Version        =   393216
  417.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  418.          NumListImages   =   9
  419.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.             Picture         =   "Form2.frx":7E21
  421.             Key             =   ""
  422.          EndProperty
  423.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.             Picture         =   "Form2.frx":90A5
  425.             Key             =   ""
  426.          EndProperty
  427.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  428.             Picture         =   "Form2.frx":9F2D
  429.             Key             =   ""
  430.          EndProperty
  431.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  432.             Picture         =   "Form2.frx":A381
  433.             Key             =   ""
  434.          EndProperty
  435.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  436.             Picture         =   "Form2.frx":B209
  437.             Key             =   ""
  438.          EndProperty
  439.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.             Picture         =   "Form2.frx":C091
  441.             Key             =   ""
  442.          EndProperty
  443.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.             Picture         =   "Form2.frx":D315
  445.             Key             =   ""
  446.          EndProperty
  447.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.             Picture         =   "Form2.frx":E19D
  449.             Key             =   ""
  450.          EndProperty
  451.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.             Picture         =   "Form2.frx":F025
  453.             Key             =   ""
  454.          EndProperty
  455.       EndProperty
  456.    End
  457.    Begin MSComctlLib.Toolbar Toolbar4 
  458.       Align           =   4  'Align Right
  459.       Height          =   7125
  460.       Left            =   11520
  461.       TabIndex        =   8
  462.       Top             =   720
  463.       Visible         =   0   'False
  464.       Width           =   360
  465.       _ExtentX        =   635
  466.       _ExtentY        =   12568
  467.       ButtonWidth     =   2514
  468.       ButtonHeight    =   582
  469.       Appearance      =   1
  470.       Style           =   1
  471.       TextAlignment   =   1
  472.       ImageList       =   "ImageList4"
  473.       _Version        =   393216
  474.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  475.          NumButtons      =   1
  476.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  477.             Caption         =   "Close Window"
  478.             Key             =   "Close"
  479.             Description     =   "Close Window"
  480.             Object.ToolTipText     =   "Close Popup Window"
  481.             Object.Tag             =   "Close"
  482.             ImageIndex      =   1
  483.          EndProperty
  484.       EndProperty
  485.       Begin MSComctlLib.ProgressBar ProgressBar2 
  486.          Height          =   1335
  487.          Left            =   45
  488.          TabIndex        =   9
  489.          Top             =   360
  490.          Width           =   255
  491.          _ExtentX        =   450
  492.          _ExtentY        =   2355
  493.          _Version        =   393216
  494.          Appearance      =   1
  495.       End
  496.    End
  497.    Begin MSComctlLib.ImageList ImageList4 
  498.       Left            =   0
  499.       Top             =   4560
  500.       _ExtentX        =   1005
  501.       _ExtentY        =   1005
  502.       BackColor       =   -2147483643
  503.       ImageWidth      =   16
  504.       ImageHeight     =   16
  505.       MaskColor       =   12632256
  506.       _Version        =   393216
  507.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  508.          NumListImages   =   2
  509.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.             Picture         =   "Form2.frx":FEAD
  511.             Key             =   ""
  512.          EndProperty
  513.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.             Picture         =   "Form2.frx":10D35
  515.             Key             =   ""
  516.          EndProperty
  517.       EndProperty
  518.    End
  519. Attribute VB_Name = "Form2"
  520. Attribute VB_GlobalNameSpace = False
  521. Attribute VB_Creatable = False
  522. Attribute VB_PredeclaredId = True
  523. Attribute VB_Exposed = False
  524. Option Explicit
  525. Dim dblReturn As Double
  526. Private Sub Command1_Click()
  527. 'Navigate To Selected Web-page
  528. Me.WebBrowser1.Navigate Text1.Text
  529. End Sub
  530. Private Sub Form_Load()
  531. 'WebBrowser1.Navigate2 "http://www.3rdforce.com/swa/moon.html"
  532. End Sub
  533. Private Sub Form_Resize()
  534. If Me.WindowState = vbMinimized Then Exit Sub
  535. If WebBrowser1.MenuBar = False Then Exit Sub
  536. Me.Height = 8580
  537. Me.Width = 12000
  538. End Sub
  539. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  540. 'Subclasing For The Toolbar
  541. On Error Resume Next
  542. Select Case Button.Key
  543. Case "Navigate"
  544. If Text1.Text = "" Then
  545. MsgBox "You Must Enter A URL"
  546. Exit Sub
  547. End If
  548. WebBrowser1.Navigate2 Text1.Text
  549. Case "stop"
  550. WebBrowser1.Stop
  551. Case "reload"
  552. WebBrowser1.Refresh
  553. Case "Previous"
  554. WebBrowser1.GoBack
  555. Case "Next"
  556. WebBrowser1.GoForward
  557. Case "Find"
  558. WebBrowser1.GoSearch
  559. Case "home"
  560. WebBrowser1.Navigate "http://homepage.hitter.net/spooner/modis"
  561. Case "Print"
  562. WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
  563. Case "Options"
  564. dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)
  565. End Select
  566. End Sub
  567. Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
  568. Select Case Button.Index
  569. Case "1"
  570. MsgBox "Welcome To On The Web Click The Arrow To The Right For A List Of Pages On The Web"
  571. Case "2"
  572. WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
  573. Case "3"
  574. Dim frmWB As Form2
  575. Set frmWB = New Form2
  576. frmWB.Visible = True
  577. Case "4"
  578. WebBrowser1.Navigate "http://radio.sonicnet.com/mymusiclisten.asp?name=Secure2k"
  579. Case "5"
  580. 'WebBrowser1.ExecWB OLECMDID_FIND, OLECMDEXECOPT_PROMPTUSER
  581. End Select
  582. End Sub
  583. Private Sub Toolbar3_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  584. On Error Resume Next
  585. Select Case ButtonMenu.Index
  586.  Case "1"
  587.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=6866694&siteid=13245143&bfpage=moma_storefront"
  588.  Case "2"
  589.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=1946520&siteid=13245172&bfpage=home"
  590.  Case "3"
  591.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=573112&siteid=13245259&bfpage=home012"
  592.  Case "4"
  593.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=1000057&siteid=13318489&bfpage=homepage"
  594.  Case "5"
  595.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=9664445&siteid=14296546&bfpage=home"
  596.  Case "6"
  597.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=2181&sourceid=13245364&categoryid=rn_home"
  598.  Case "7"
  599.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=7362327&siteid=13245188&bfpage=general"
  600.  Case "8"
  601.  WebBrowser1.Navigate "http://service.bfast.com/bfast/click?bfmid=1391718&siteid=13245217&bfpage=homepage"
  602.  Case "9"
  603.  WebBrowser1.Navigate "http://www.bepaid.com/master.rhtml?REFID=10595823"
  604.  End Select
  605. End Sub
  606. Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
  607. Select Case Button.Index
  608. Case "1"
  609. Me.Hide
  610. End Select
  611. End Sub
  612. Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  613. On Error Resume Next
  614. ShockwaveFlash1.Playing = False
  615. ShockwaveFlash1.Rewind
  616. End Sub
  617. Private Sub WebBrowser1_DownloadBegin()
  618. On Error Resume Next
  619. Me.Caption = "Zyweb"
  620. Me.Text1.Text = WebBrowser1.LocationURL
  621. ShockwaveFlash1.Playing = True
  622. End Sub
  623. Private Sub WebBrowser1_DownloadComplete()
  624. Me.Caption = "Zyweb - " & WebBrowser1.LocationName
  625. On Error Resume Next
  626. If WebBrowser1.MenuBar = False Then
  627. Me.BorderStyle = 3
  628. Me.Height = WebBrowser1.Height
  629. Me.Width = WebBrowser1.Width
  630. Me.Height = Me.Height + 375
  631. Me.Width = Me.Width + 80 + 400
  632. Toolbar1.Visible = False
  633. Toolbar2.Visible = False
  634. Toolbar3.Visible = False
  635. Toolbar4.Visible = True
  636. If Me.WindowState = vbMinimized Then Exit Sub
  637. WebBrowser1.Left = 0
  638. WebBrowser1.Top = 0
  639. End If
  640. ShockwaveFlash1.Rewind
  641. ShockwaveFlash1.Playing = False
  642. End Sub
  643. Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  644. On Error Resume Next
  645. Dim frmWB As Form2
  646. Set frmWB = New Form2
  647. frmWB.WebBrowser1.RegisterAsBrowser = True
  648. Set ppDisp = frmWB.WebBrowser1.Object
  649. frmWB.Visible = True
  650. End Sub
  651. Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
  652. On Error Resume Next
  653. If Progress = -1 Then ProgressBar1.Value = 100 & ProgressBar2.Value = 100
  654. If Progress > 0 And ProgressMax > 0 Then
  655. ProgressBar1.Value = Progress * 100 / ProgressMax
  656. ProgressBar2.Value = ProgressBar1.Value
  657. End If
  658. End Sub
  659. Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean)
  660. On Error Resume Next
  661. Me.Visible = False
  662. End Sub
  663.